
''' <summary>
''' Data Object Transaction Exception.
''' </summary>
''' <remarks>
''' </remarks>
''' <history>
''' 	[cinj]	1/09/2004	Created
''' </history>
<Serializable()> _
Public Class DOTransactionException
    Inherits Exception

    Public Const msg As String = "BizBlox Transaction Exception."

    Public Sub New()
        MyBase.New(msg)
    End Sub ' New

    Public Sub New(ByVal Message As String)
        MyBase.New(String.Format("{0} - {1}", msg, Message))
    End Sub ' New

    Public Sub New(ByVal Message As String, ByVal inner As Exception)
        MyBase.New(String.Format("{0} - {1}", msg, Message), inner)
    End Sub ' New

    Public Sub New(ByVal Message As String, ByVal SQLSrc As String, ByVal inner As Exception)
        MyBase.New(String.Format("{0} - {1} " & vbCrLf & vbCrLf & "SQL Source: " & vbCrLf & "{2}", msg, Message, SQLSrc), inner)
    End Sub ' New    
End Class
